12 IFPEEK(251)=0 THEN 200
15 POKE2,255
17 POKE251,0
20 SYS49152,40960,35840,"PARAGON.SHP",16384,".PAR 0800-25A5"
200 SYS4096
202 POKE53281,0:POKE251,1
205 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
206 IFER<>63 THEN POKE43,1:POKE44,8:NEW
211 PRINT"[147][144]POKE43,1:POKE44,8:NEW"
212 PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8":POKE631,13
215 POKE632,13:POKE633,82:POKE634,213:POKE635,13:POKE198,5